home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed14.d64 / lesson 1-4a (.txt) next >
Commodore BASIC  |  2007-02-04  |  8KB  |  208 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  31. 101 [153]"LOAD      ATN (null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null) (null)(null)(null)CHR$(null)ATN(null)
  32. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  33. 105 [153]"                                        WAIT";
  34. 110 [153]"                                        WAIT";
  35. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  36. 120 [153]"                                        WAIT";
  37. 125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
  38. 130 [153]"                                        WAIT";
  39. 135 [153]"                (null)ESSON 1                WAIT";
  40. 140 [153]"                                        WAIT";
  41. 145 [153]"         RIGHT$NTRODUCTORY PROBLEMS OPEN         WAIT";
  42. 150 [153]"                                        WAIT";
  43. 155 [153]"                                        WAIT"
  44. 160 [153]"                   WHC ONON"
  45. 165 [141]90
  46. 170 [153]"LOAD       ATNND AWAY WE GO......."
  47. 175 [141]81:[141]50:[141]80
  48. 200 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 1 WAIT          (null)1OPEN":Z[178]0
  49. 210 [153]"  MID$AMES HAD 4 CENTS.  LEFT$IS MOTHER GAVE     HIM 3 CENTS MORE.
  50. 220 PRINT"  [200]OW MUCH DID HE HAVE THEN?[159]"
  51. 230 INPUT A$
  52. 240 IFA$<>"7"ANDA$<>"7 CENTS"THEN 270
  53. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  54. 260 P=P+1:GOTO300
  55. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  56. 275 IFZ=2THENG=G+1:GOTO295
  57. 280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  58. 290 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO230
  59. 295 PRINT"[145][145][150]  [200]E HAD 7[150] CENTS.                  ":GOSUB82
  60. 297 PRINT"  4 + 3 = 7":GOSUB82:GOSUB90
  61. 300 PRINT"[152][147][197][196]-14          [209]UESTION 2 [146]          [204]1[159]":Z=0
  62. 310 PRINT"  [193]T 4 CENTS EACH, HOW MUCH MUST [202]OHN     PAY FOR 3 APPLES?"
  63. 320 GOSUB81:GOSUB70
  64. 330 INPUT A$
  65. 340 IFA$<>"12"ANDA$<>"12 CENTS"THEN 370
  66. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  67. 360 P=P+1:GOTO400
  68. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  69. 375 IFZ=2 THEN G=G+1:GOTO395
  70. 380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  71. 390 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO330
  72. 395 PRINT"[145][145][150]  [202]OHN PAYS 12[150] CENTS.              ":GOSUB82
  73. 397 PRINT"  4 X 3 = 12":GOSUB82:GOSUB90
  74. 400 PRINT"[152][147][197][196]-14          [209]UESTION 3 [146]          [204]1[159]":Z=0
  75. 410 PRINT"  [200]ARRY HAD 12 MARBLES.  [200]E GAVE 4 OF     THEM TO HIS BROTHER."
  76. 415 PRINT"  [200]OW MANY MARBLES HAD HE LEFT?[159]"
  77. 420 GOSUB81:GOSUB70
  78. 430 INPUT A$
  79. 440 IFA$<>"8"ANDA$<>"8 MARBLES"THEN 470
  80. 450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  81. 460 P=P+1:GOTO500
  82. 470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  83. 475 IFZ=2THENG=G+1:GOTO495
  84. 480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  85. 490 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO430
  86. 495 PRINT"[145][145][150]  [200]E HAD 8[150] MARBLES.               ":GOSUB82
  87. 497 PRINT"  12 - 4 = 8":GOSUB82:GOSUB90
  88. 500 PRINT"[152][147][197][196]-14          [209]UESTION 4 [146]          [204]1[159]":Z=0
  89. 510 PRINT"  [193]T 5 CENTS EACH, HOW MANY PENCILS
  90. 515 [153]"  CAN RIGHT$ BUY WITH 15 CENTS?"
  91. 520 [141]81:[141]70
  92. 530 [133] A$
  93. 540 [139]A$[179][177]"3"[175]A$[179][177]"3 PENCILS"[167] 570
  94. 550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  95. 560 P[178]P[170]1:[137]600
  96. 570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  97. 575 [139]Z[178]2[167]G[178]G[170]1:[137]595
  98. 580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  99. 590 [153]"OPENONON                                        ONONONONONONON":[137]530
  100. 595 [153]"ONONDEF  RIGHT$ CAN BUY 3DEF PENCILS.             ":[141]82
  101. 597 [153]"  15 / 5 = 3":[141]82:[141]90
  102. 600 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 5 WAIT          (null)1OPEN":Z[178]0
  103. 610 [153]"  ASCRANK HAS 14 MARBLES AND (null)OM HAS 12     MARBLES.
  104. 615 PRINT"  [200]OW MANY HAVE THEY TOGETHER?[159]"
  105. 620 GOSUB81:GOSUB70
  106. 630 INPUT A$
  107. 640 IFA$<>"26"ANDA$<>"26 MARBLES" THEN 670
  108. 650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  109. 660 P=P+1:GOTO700
  110. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  111. 675 IFZ=2THENG=G+1:GOTO695
  112. 680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  113. 690 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO630
  114. 695 PRINT"[145][145][150]  [212]HEY HAVE 26[150] MARBLES.           ":GOSUB82
  115. 697 PRINT"  14 + 12 = 26":GOSUB82:GOSUB90
  116. 700 PRINT"[152][147][197][196]-14          [209]UESTION 6 [146]          [204]1[159]":Z=0
  117. 710 PRINT"  [201]F ORANGES COST 5 CENTS EACH, HOW
  118. 715 [153]"  MUCH MONEY MUST CHR$RACE HAVE TO BUY       6 ORANGES?"
  119. 720 [141]81:[141]70
  120. 730 [133] A$
  121. 740 [139]A$[179][177]"30"[175]A$[179][177]"30 CENTS" [167] 770
  122. 750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  123. 760 P[178]P[170]1:[137]800
  124. 770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  125. 775 [139]Z[178]2[167] G[178]G[170]1:[137]795
  126. 780 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  127. 790 [153]"OPENONON                                        ONONONONONONON":[137]730
  128. 795 [153]"ONONDEF  CHR$RACE MUST HAVE 30DEF CENTS.       ":[141]82
  129. 797 [153]"  5 X 6 = 30 ":[141]82:[141]90
  130. 800 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 7 WAIT          (null)1OPEN":Z[178]0
  131. 810 [153]"  (null)OBERT SPENT 8 CENTS FOR A TOP AND      15 CENTS FOR A KITE."
  132. 815 [153]"  LEFT$OW MUCH DID BOTH COST?"
  133. 820 [141]81:[141]70
  134. 830 [133] A$
  135. 840 [139]A$[179][177]"23"[175]A$[179][177]"23 CENTS" [167] 870
  136. 850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  137. 860 P[178]P[170]1:[137]900
  138. 870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  139. 875 [139]Z[178]2[167] G[178]G[170]1:[137]895
  140. 880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  141. 890 [153]"OPENONON                                        ONONONONONONON":[137]830
  142. 895 [153]"ONONDEF  PEEKOTH COST 23DEF CENTS.             ":[141]82
  143. 897 [153]"  8 + 15 = 23":[141]82:[141]90
  144. 900 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 8 WAIT          (null)1OPEN":Z[178]0
  145. 905 [153]"  (null)ARGARET BOUGHT A BOX OF CANDY WITH
  146. 910 PRINT"  12 PIECES IN IT.  [211]HE GAVE 5 PIECES     TO HER LITTLE SISTER
  147. 915 [153]"  LEFT$OW MANY CANDIES DID SHE HAVE LEFT?"
  148. 920 [141]81:[141]70
  149. 930 [133] A$
  150. 940 [139]A$[179][177]"7"[175]A$[179][177]"7 PIECES" [167] 970
  151. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  152. 960 P[178]P[170]1:[137]1000
  153. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  154. 975 [139]Z[178]2[167] G[178]G[170]1:[137]995
  155. 980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  156. 990 [153]"OPENONON                                        ONONONONONONON":[137]930
  157. 995 [153]"ONONDEF  (null)HE HAD 7DEF CANDIES LEFT.         ":[141]82
  158. 997 [153]"  12 - 5 = 7 ":[141]82:[141]90
  159. 1000 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 9 WAIT          (null)1OPEN":Z[178]0
  160. 1005 [153]"  LEFT$OW MUCH WILL MID$ERRY HAVE TO PAY
  161. 1010 PRINT"  FOR 4 ICE CREAM DIPS AT 5 CENTS
  162. 1015 [153]"  EACH?"
  163. 1020 [141]81:[141]70
  164. 1030 [133] A$
  165. 1040 [139]A$[179][177]"20"[175]A$[179][177]"20 CENTS" [167] 1070
  166. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  167. 1060 P[178]P[170]1:[137]1100
  168. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  169. 1075 [139]Z[178]2[167] G[178]G[170]1:[137]1095
  170. 1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  171. 1090 [153]"OPENONON                                        ONONONONONONON":[137]1030
  172. 1095 [153]"ONONDEF  MID$ERRY WILL PAY 20DEF CENTS.        ":[141]82
  173. 1097 [153]"  4 X 5 = 20 ":[141]82:[141]90
  174. 1100 [153]"PRINT#LOADVALSTR$-14          (null)UESTION 10 WAIT         (null)1OPEN":Z[178]0
  175. 1105 [153]"  ASCRED WON 3 RED BALLOONS, 7 WHITE
  176. 1110 PRINT"  BALLOONS AND 5 BALLS."
  177. 1115 PRINT"  [200]OW MANY BALLOONS DID HE WIN?"
  178. 1120 GOSUB81:GOSUB70
  179. 1130 INPUT A$
  180. 1140 IFA$<>"10"ANDA$<>"10 BALLOONS" THEN 1170
  181. 1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  182. 1160 GOTO1200
  183. 1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  184. 1175 IFZ=2THEN G=G+1:GOTO1195
  185. 1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  186. 1190 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1130
  187. 1195 PRINT"[145][145][150]  [200]E WON 10[150] BALLOONS.               ":GOSUB82
  188. 1197 PRINT"  3 + 7 = 10":GOSUB82:GOSUB90
  189. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  190. 1205 D=W-G:C=10-W
  191. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  192. 1215 [153]"                 ";C
  193. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  194. 1225 PRINT"                 ";D
  195. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  196. 1235 [153]"                 ";G;""
  197. 1245 [141]90
  198. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  199. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  200. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  201. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  202. 1270 [139]R$[178]"R"[167][140]:[137]100
  203. 1280 [153]"LOAD (null)ETURNING TO THE MENU
  204. 1285 LOAD"MENU",8
  205. 1290 RUN
  206. 1295 END
  207. 1300 REM BILL CUMBERLAND 90:11:27
  208.